20 CLOCK = 1: INVERSE : VTAB 5: PRINT " ALPHA INFO ": PRINT : NORMAL : PRINT "AS OF 8:30 THIS MORNING, WE KNOW OF NO ERRORS IN THE ALPHA PLOT INSTRUCTION MANUAL. WE HAVE, HOWEVER, ADDED A FEW FEATURES AND WOULD LIKE TO EMPHASIZE A FEW OTHERS..."
26 PRINT "YOU CAN UPDATE THIS DISK, AND ALL OF YOUR DOS 3.3 DISKS WITH BEAGLE BROS' PRONTO-DOS UTILITY TO TRIPLE THE SPEED OF PROGRAM & PICTURE LOADING AND SAVING.A REAL BARGAIN AT $29.50!": PRINT
27 PRINT "SCRUNCH NOTES:": PRINT "--------------": PRINT "SCRUNCH (PAGE 38) WAS WRITTEN BY JACK CASSIDY AND (BRILLIANTLY) MODIFIED BY BEAGLE BROS CUSTOMER JAMES FRISON. PLEASE MAIL HIM $500 FOR HIS HELP."
28 PRINT : PRINT "ADVANCED PROGRAMMERS NOTE: SCRUNCH IS RELOCATABLE. TO SCRUNCH A PICTURE, CALL THE BLOAD ADDRESS. TO UNSCRUNCH CALL THE BLOAD ADDRESS+3.": PRINT
31 GOSUB 5000
32 PRINT "BACK IT UP!": PRINT "-----------"
33 PRINT "BACK UP THIS DISK AND YOUR PICTURE DISKSWITH THE COPYA PROGRAM FROM YOUR SYSTEM MASTER DISK. AND PLEASE DON'T GIVE COPIES OF OUR DISKS AWAY. YOU SUPPORT USAND WE'LL SUPPORT YOU!": PRINT
35 PRINT "IN CASE YOU'RE NEW AROUND HERE, YOU CAN TRANSFER IMAGES FROM DISK TO DISK WITH THE "Q$"FID"Q$" OR "Q$"FILER"Q$" PROGRAM(S) THAT<CTRL-M>CAME WITH YOUR APPLE.": PRINT : PRINT
40 PRINT "RUN PICTURE BLOAD DEMO": PRINT "----------------------": PRINT "IF YOU ARE UNFAMILIAR WITH HOW TO ACCESSHI-RES PICTURES FROM YOUR APPLESOFT PROGRAMS, RUN "Q$"PICTURE BLOAD DEMO"Q$",": PRINT "AND LIST IT TO LEARN.": GOSUB 5000
60 POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: HCOLOR= 3: HGR : HPLOT 0,143 TO 0,157 TO 216,157 TO 216,143 TO 0,143 TO 70,103 TO 279,103 TO 216,143 TO 0,143: HCOLOR= 0: FOR I = 2 TO 214 STEP 6: HPLOT I,143 TO I +2,143: NEXT
65 CLOCK = 0: HOME : SPEED= 222: VTAB 21: PRINT "FOLD YOUR KEYCHART LENGTHWISE AND INSERTIT BEHIND THE NUMBER KEYS ON YOUR APPLE.";: GOSUB 5000
70 TEXT : HOME : PRINT "TYPE & DRAW REMINDER": PRINT "--------------------": PRINT "CTRL-T WILL DIRECTLY ENTER THE TYPING MODE FROM DRAWING MODE OR OPTION 4.": PRINT : PRINT "CTRL-D WILL DIRECTLY ENTER THE DRAWING MODE FROM TYPING MODE OR OPTION 4."
80 PRINT : PRINT "EXIT REMINDER": PRINT "-------------": PRINT "CTRL-@ HAS BEEN ADDED AS A QUIT-KEY. <RESET> AND CTRL-C ALSO WORK, BUT COULD LEAVE A CURSOR IMPRINT ON YOUR PICTURE. ALWAYS SAVE BEFORE QUITTING ALPHA PLOT."
90 PRINT : PRINT "PADDLE (JOYSTICK) ENHANCEMENT": PRINT "-----------------------------": PRINT "A PDL-0 BUTTON-PRESS CAUSES ZERO OFFSET (SAME AS <RETURN> IN KEY MODE)."
100 PRINT : PRINT "A PDL-1 BUTTON-PRESS DRAWS A LINE & CAN-CELS OFFSET (SAME AS "Q$ CHR$(45 +16 *E2)Q$" IN KEY MODE).";: PRINT
112 IF E2 THEN INVERSE : VTAB 11: HTAB 1: PRINT "DELETE": VTAB 22: NORMAL
120 PRINT : PRINT : GOSUB 5000
130 PRINT "APPLE COLOR BUGS": PRINT "----------------"
140 PRINT "COLOR LINES (NOT SOLIDS) ON COLOR BACK- GROUNDS OFTEN PRODUCE STRANGE EFFECTS DUE TO APPLE'S COLOR-GRAPHICS HARDWARE. RESULTS DEPEND ON WHICH COLORS YOU ARE ARE USING...": PRINT
150 PRINT " GREEN-ORANGE OR VIOLET-BLUE COMBINA- TIONS WILL MAINTAIN TRUE COLORS, BUT LINES WILL BE THICK AND STAIR-STEPPED. OTHER COMBINATIONS WILL PRODUCE A MIXTURE OF COLORS."
160 PRINT : INVERSE : PRINT " FOR MOST APPLE GRAPHIC APPLICATIONS, BLACK IS THE BEST BACKGROUND "Q$"COLOR"Q$". ";: NORMAL : PRINT " -----"
170 PRINT "RELOCATING COLOR SECTIONS (OPTION 6-R) WILL PRODUCE INACCURATE COLORS IF YOU MOVE OTHER THAN 14 PLOTS LEFT OR RIGHT (ARROW KEYS). MOVING SEVEN PLOTS LEFT ORRIGHT WILL PRODUCE COMPLEMENTARY COLORS!"
180 GOSUB 5000: IF E2 THEN 230
190 PRINT "TYPING NOTES": PRINT "------------"
200 PRINT "CTRL-E PRINTS A LEFT SQUARE BRACKET ([). CTRL-F PRINTS A BACKSLASH (\).": PRINT " CTRL-I PRINTS AN UNDERSCORE (_).": PRINT
210 PRINT "LOWER CASE VERSIONS OF THE THREE SPECIALCHARACTERS ABOVE, AS WELL AS @, ] AND ^,WILL PRODUCE SOME NICE ASCII CHARACTERS YOU MAY NOT BE FAMILIAR WITH. ALSO..."
220 PRINT : PRINT "CTRL-B PRINTS ALPHA PLOT'S CAPS CURSOR. CTRL-P PRINTS THE LOWER-CASE CURSOR.": PRINT
230 PRINT "THE LAST NORMAL CHARACTER TYPED ON A NON-BLACK BACKGROUND MAY APPEAR INCOM- PLETE. TYPE A SPACE OR CTRL-J TO FIX IT."
240 PRINT "TO INCLUDE DESCENDERS, ALPHA PLOT'S INVERSE BLEEDS AT THE TOP INSTEAD OF THEBOTTOM. IF YOU WANT, ADD A WHITE LINE TOTHE TOP OF YOUR INVERSE CHARACTERS."
270 PRINT "AND WE SHOULD MENTION...": PRINT "------------------------"
280 IF NOT E2 THEN PRINT "IF YOU ARE USING ALPHA PLOT AND WANT TO EXECUTE A DOS COMMAND (FOR EXAMPLE, UNLOCK A PICTURE FILE), YOU MUST EXIT ALPHA PLOT (CTRL-@ OR RESET), TYPE THE COMMAND, AND THEN 'RUN ALPHA PLOT'."
282 IF E2 THEN PRINT "IF YOU ARE USING ALPHA PLOT AND WANT TO EXECUTE A DOS COMMAND (FOR EXAMPLE, UNLOCK A PICTURE FILE), YOU MUST EXIT ALPHA PLOT (DELETE OR RESET), TYPE THE COMMAND, AND THEN 'RUN ALPHA PLOT'."
290 PRINT : PRINT "SCRUNCH WILL SAVE THE MOST SPACE ON IMAGES CONTAINING MUCH BLACK OR WHITE."
300 PRINT : PRINT "THE X & O OF THE XO CURSOR WILL BECOME DOTS AT THE EDGE OF THE SCREEN."
310 PRINT : PRINT "R WILL NOW ROTATE THE DRAWING CURSOR FROM DRAWING MODE (SAME AS OPTION 8-R)."
315 PRINT : PRINT "EACH CTRL-J (ERASE) KEYPRESS MUST BE FOLLOWED BY A CTRL-K OR CTRL-L TO MOVE THE CURSOR."
320 VTAB 7: HTAB 34: PRINT Q$;: HTAB 19: PRINT Q$
330 INVERSE : VTAB 3: PRINT "IF": VTAB 9: PRINT "SCRUNCH": VTAB 12: PRINT "THE X & O": VTAB 15: PRINT "R": VTAB 18: HTAB 6: PRINT "CTRL-J": NORMAL
340 GOTO 5010
5000 SPEED= 222: VTAB 23: HTAB 1: FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT " RETURN FOR MORE OR <Q> TO QUIT.";: HTAB 1: PRINT "<RETURN> FOR MORE OR Q ";:K = PEEK( -16384)
5001 IF CLOCK = 1 THEN C = C +1: IF C = 10 THEN VTAB 7: HTAB 7: PRINT "9:45 THIS EVENING"
5002 IF K < >141 AND K < >209 THEN 5000
5005 POKE -16368,0: SPEED= 240: IF K = 141 THEN HOME : RETURN
5010 FOR I = 37 TO 1 STEP -1: SPEED= 175: VTAB 24: HTAB I: PRINT "]";: FLASH : PRINT " ";: NORMAL : CALL -868: NEXT : SPEED= 255: VTAB 23: END
6000 REM <CTRL-M><CTRL-M>APPLE IIE/IIC INFO<CTRL-M>
6001 TEXT : HOME : NORMAL : PRINT "IIe/IIc NOTES": PRINT "-------------"
6010 PRINT "A second version of Alpha Plot called": INVERSE : PRINT "ALPHA PLOT/E";: NORMAL : PRINT " will run automatically if you have an Apple IIe or IIc."
6020 PRINT
6025 PRINT : PRINT "In the IIe/IIc version, the ESC key doesNOT control upper and lower case. Use the SHIFT keys as you normally would."
6028 PRINT : INVERSE : PRINT " KEEP THE CAPS-LOCK KEY DOWN EXCEPT FOR TYPING LOWER CASE ONTO THE SCREEN. ": NORMAL
6030 PRINT : PRINT "Note: The Up and Down Arrows will NOT move the cursor. Follow the instructionsin your Alpha Plot Manual and Key Chart."